home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / database / ingres04.lzh / source / gutil / tTf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1985-01-23  |  199 b   |  17 lines
  1. # include    <sccs.h>
  2.  
  3. SCCSID(@(#)tTf.c    8.1    12/31/84)
  4.  
  5. tTf(m, n)
  6. {
  7.     extern char    tTany;
  8.     extern short    *tT;
  9.  
  10.     if (!tTany)
  11.         return (0);
  12.     if (n < 0)
  13.         return (tT[m]);
  14.     else
  15.         return ((tT[m] >> n) & 01);
  16. }
  17.